home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Cactus
/
Cactus #23 - Haushaltsbuch (1988-12)(Commodore Amiga Creativ Und Software Usergruppe)(de).zip
/
Cactus #23 - Haushaltsbuch (1988-12)(Commodore Amiga Creativ Und Software Usergruppe)(de).adf
/
Haushaltsbuch V1.2
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1988-04-22
|
506b
|
27 lines
' Ladeprogramm fuer HHB V1.2
ON BREAK GOSUB Ende:BREAK ON
ON ERROR GOTO Errormeldung
clearsumme&=105000
IF FRE(-1) > 250000 THEN clearsumme&=FRE(-1)-150000
IF clearsumme&>200000 THEN clearsumme&=200000
CLEAR ,clearsumme&
LOAD "Haushaltssystem/HHB V1.2",r
SYSTEM
Errormeldung:
IF ERR=7 OR ERR=14 THEN
CLS
LOCATE 12,14:PRINT "Das war es auch schon. Viel zu wenig Speicher frei !"
RESUME Ende
END IF
ON ERROR GOTO 0
Ende:
LOCATE 20,24:PRINT "Drücken Sie die Linke Maustaste"
WHILE MOUSE(0)<>-1 :WEND
SYSTEM